シート コピー 名前
Dim コピー元シート名
コピー元シート名 = "_"
'シートAを先頭にコピー
Worksheets(コピー元シート名).Copy before:=Worksheets(1)
'シートAを末尾にコピー
Worksheets(コピー元シート名).Copy after:=Worksheets(Worksheets.Count)
'シートに名前を付ける
ActiveSheet.Name = Format(Date, "mmdd") & "_" & Format(Time, "hhmm")